<p> Stem Module </p>

0b5e09b5-25af-44ba-84b4-ca8dc7d33b74 22 15 12 decimal

&[DATE] &[TIME] - &[FILENAME]

j 1 - sqrt :

n 0200 range :

G.dc 1.346 :

ω.z1 5899.91 :

ω.z2 25252.5 :

ω.p34 503755 :

ω.p1 21449.2 :

ω.p2 209.325 :

freq.z1 ω.z1 2 π * / : 938.99984

freq.z2 ω.z2 2 π * / :

freq.p1 ω.p1 2 π * / :

freq.p2 ω.p2 2 π * / :

freq.p34 ω.p34 2 π * / :

n freq 101 n 40 / +^:

ζ 0.68463 :

freq G.amp G.dc j freq * freq.z1 / 1 + (j freq * freq.z2 / 1 + (* j freq * (2^freq.p34 2^/ 2 ζ * j freq * freq.p34 / * + 1 + (j freq * freq.p1 / 1 + (* j freq * freq.p2 / 1 + (* / * :

n 1200 range :

n freq 101 n 40 / +^:

freq n freq vectorize :

Gain 20 freq G.amp abs log10 * vectorize :

plot freq Gain augment : 11 sys

plot plot

Y plot 2 col : λ Y length : Y Y sys2mat : 31 line

N λ 1 - :

D i 1 - sqrt : n 0 N 1 - range D n 1 + el 1 λ 1 - sqrt / Y k 1 + el e i 2 π * n * λ / (* k *^* (k 0 N 1 - sum eval * : for D 31 line :

Indexed absolute for Fourier spectrum abs t 1 N 2 range : Fo D mat2sys abs sys2mat : t Fo augment 31 line :

<p> Stem Module </p>

Spectrum stem plot for QuickPlot unicolor data Stem stemX 1 data rows range : i 1 stemX rows range stem i el data i 1 el data i 2 el data i 1 el 022 mat : for i 1 stem rows 1 - range stem i el stem i el stem i 1 + (1 el 1 el 012 mat stack : for V stem 1 el : j 2 stem rows 1 - range V V stem j el stack : for V V data data rows row stack : 71 line :

spectrum abs Stem :

Fake to view DC DC 0.875 0 0.875 spectrum 12 el 1.125 spectrum 12 el 1.125 042 mat :

Fourier spectrum [symmetric]

spectrum DC 2 1 sys

Fourier spectrum [symmetric]

spectrum DC 2 1 sys